home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1998 June / Software of the Month Club 1998 June.iso / mac / Business / Hi's Universal Saver / Dialog Director v0.6 / Examples / Remember Pos.as < prev    next >
Encoding:
Text File  |  1998-04-13  |  685 b   |  14 lines  |  [TEXT/ToyS]
  1. property theDialog : {bounds:dd calc dialog bounds [260, 95], contents:[┬
  2.     {class:push button, bounds:[190, 65, 250, 85], name:"OK", enabled:3}, ┬
  3.     {class:push button, bounds:[110, 65, 170, 85], name:"Cancel"}, ┬
  4.     {class:text field, bounds:[10, 36, 250, 36 + 16], name bounds:┬
  5.         [10, 10, 250, 26], name:"?", value:"?"}] ┬
  6.     , name:"?", style:movable modal}
  7.  
  8. repeat with i from 1 to 5
  9.     set name of theDialog to "Remember Window Position " & i
  10.     set name of item 3 of contents of theDialog to "Enter item " & i & " of 5:"
  11.     set dlog to dd auto dialog theDialog
  12.     set bounds of theDialog to last item of dlog
  13.     if item 2 of dlog then exit repeat -- If user clicked Cancel then stop
  14. end repeat